home *** CD-ROM | disk | FTP | other *** search
- program main;
- uses fgmain, fgmisc;
-
- begin
- fg_initpm;
- fg_musicb('T150 L8 EDCDEEE P DDD P EGG P EDCDEEE L16 P L8 EDDEDC$',1);
- fg_waitkey;
-
- fg_suspend;
- writeln('Music suspended. Press any key to resume.');
- fg_waitkey;
-
- fg_resume;
- writeln('Music resumed.');
- while (fg_playing = 1) do;
- writeln('Music finished.');
- end.